home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / pibcalc.arc / TRYEDIT.PAS < prev   
Pascal/Delphi Source File  |  1985-03-06  |  1KB  |  69 lines
  1. (*C-,U-,B-*)
  2. PROGRAM TryEdit;
  3.  
  4. TYPE
  5.    AnyStr = STRING[255];
  6.  
  7. VAR
  8.    S:    AnyStr;
  9.    C:    Char;
  10.  
  11. Procedure Help;
  12. Begin (* Help *)
  13. End   (* End  *);
  14.  
  15. Procedure Click;
  16. Begin (* Click *)
  17. End   (* Click *);
  18.  
  19. Function Trim( S : AnyStr ) : AnyStr;
  20.  
  21. VAR
  22.    I:       INTEGER;
  23.    Trimmed: BOOLEAN;
  24.  
  25. BEGIN (* Trim *)
  26.  
  27.    Trim := '';
  28.  
  29.    IF LENGTH( S ) > 0 THEN
  30.       BEGIN
  31.  
  32.          I       := LENGTH( S ) + 1;
  33.          Trimmed := FALSE;
  34.  
  35.          REPEAT
  36.  
  37.             I := I - 1;
  38.             IF ( I > 0 ) THEN
  39.                Trimmed := S[I] <> ' '
  40.             ELSE
  41.                Trimmed := TRUE;
  42.  
  43.          UNTIL Trimmed;
  44.  
  45.          IF ( I > 0 ) THEN Trim := COPY( S, 1, I );
  46.  
  47.       END;
  48.  
  49. END   (* Trim *);
  50.  
  51.  
  52.  
  53. (*$I DUPL.PAS   *)
  54. (*$I GETSTR.PAS *)
  55.  
  56. BEGIN (* TryEdit *)
  57.  
  58.    Write('Enter string to be edited: ');
  59.    Readln( S );
  60.  
  61.    C := Edit_String( S, 80, 1, WhereY + 1, FALSE );
  62.  
  63.    S := Trim( S );
  64.  
  65.    Writeln;
  66.    Writeln;
  67.    Writeln('Edited string: ',S);
  68.  
  69. END   (* TryEdit *).